home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / GME / GMEFILE.D < prev    next >
Encoding:
Text File  |  1991-03-09  |  2.4 KB  |  3 lines
  1. ⓪ DEFINITION MODULE GMEFile;⓪ (*$Z+*)⓪ ⓪ (* The Little Golem Editor. Begonnen 13. 06. 86⓪#(C) 1986 by Johannes Leckebusch⓪#Version: Siehe ceditor⓪ *)⓪ ⓪ FROM GMEBase IMPORT einPufferPointer, einMerkSet, eineInfo,⓪"einPufferDeskriptor, einLinePointer, einStringPointer;⓪ ⓪ VAR     GlobalPfad:     eineInfo;⓪ ⓪ PROCEDURE TextSchreiben (Puff: einPufferPointer; forceBackup,⓪9markiert, frage, saveconfig, controlfil: BOOLEAN;⓪9VAR erfolgreich: BOOLEAN);⓪ PROCEDURE TextLesen (Puff: einPufferPointer; initialisiere: BOOLEAN;⓪9frage, loadconfig, message: BOOLEAN);⓪ PROCEDURE TextVorhanden (Name: ARRAY OF CHAR): BOOLEAN;⓪ PROCEDURE TextLoeschen (Name: ARRAY OF CHAR);⓪ PROCEDURE ReInit (Puff: einPufferPointer);⓪ ⓪ (* DEFINITION MODULE EditCommand; *)⓪ ⓪"PROCEDURE SetCompilerInfo (Puff: einPufferPointer;⓪0VAR FehlerMeldung: ARRAY OF CHAR);⓪ ⓪"PROCEDURE SetPath;⓪"(* Pfad für Dienstprogramme einstellen *)⓪"⓪"PROCEDURE NextArgument (VAR n, arg: ARRAY OF CHAR): BOOLEAN;⓪"(* Kopiert aus n das erste Argument (bis zum Blank) in arg und löscht⓪%es in n. FALSE wenn n der leere String ist. *)⓪"⓪"PROCEDURE SplitFileName (name: ARRAY OF CHAR;⓪;VAR path, file, suff: ARRAY OF CHAR);⓪"(* Kopiert den Pfad- und Dateinamensanteil aus name getrennt nach⓪%path und file *)⓪"⓪"PROCEDURE CommandLine (VAR FILENAME, FEHLERMELD: ARRAY OF CHAR): BOOLEAN;⓪ ⓪ (*⓪"PROCEDURE DoRunProgram (Pfadname, Dateiname, Argument: ARRAY OF CHAR): INTEGER;⓪ *)⓪ ⓪ VAR     CompilerPfad:   eineInfo;⓪(ScrapPfad:      eineInfo;⓪(ScrapName:      eineInfo;⓪(BackPointer:    einStringPointer;⓪((* DoClipboard:    BOOLEAN; *)⓪ ⓪ PROCEDURE LoadConfig (Puff: einPufferPointer; frage, message: BOOLEAN);⓪ PROCEDURE SaveConfig (Puff: einPufferPointer; frage: BOOLEAN);⓪ ⓪ END GMEFile.⓪ ə
  2. (* $FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2Ç$00000178T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000703$00000002$000006F1$000001CE$00000182$00000178$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2$FFEE70F2ÿÇé*)
  3.